home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / ms_dos / game / hyakunin / hyaku11a.bas next >
BASIC Source File  |  1995-02-09  |  14KB  |  303 lines
  1.    10 clear:NOKO=5:KAI=0:color 7:restore
  2.    20 randomize val(right$(time$,2)):console ,,0
  3.    30 cls:N=100:MM$="QWERTYUI"
  4.    40 dim K$(100),S$(100),OK$(44),OS$(30),KOS$(16,3,5),KIOKU(100)
  5.    50 for I=1 to N
  6.    60 read K$(I),S$(I)
  7.    70 next I
  8.    80 if inkey$="S" then end
  9.    85 if inkey$><"" then 80 else cls:locate 67,5:print"残り>>";NOKO :for I=1 to 100:KIOKU(I)=0:next I:KAI=KAI+1
  10.    90 locate 65,7:print"SCORE>>";SC:locate 2,7:print"平均速度";HSO
  11.   100 line (0,0)-(639,399),pset,1,b
  12.   110 symbol@ (93,13),"＜＜＜　小倉百人一首　＞＞＞",2,2,1
  13.   120 symbol@ (90,10),"＜＜＜　小倉百人一首　＞＞＞",2,2,6
  14.   130 line (3,55)-(636,396),pset,2,b
  15.   140 for I=1 to 5:line (118+I,56+I)-(518-I,118-I),pset,I,b:next I
  16.   150 X=int(rnd*N)+1
  17.   160 for I=1 to 16
  18.   170 XX=int(rnd*N)+1
  19.   180 if XX=X then goto 170
  20.   190 for J=1 to N
  21.   200 if KIOKU(XX)=1 then 170
  22.   210 next J
  23.   220 KIOKU(XX)=1:for J=0 to 2
  24.   230  for K=0 to 4:KOS$(I,J+1,K+1)=mid$(S$(XX),J*10+K*2+1,2)
  25.   240 next K,J,I
  26.   250 if KIOKU(X)><1 then
  27.   260 KI=int(rnd*16)+1
  28.   270 for I=1 to 3:for J=1 to 5:KOS$(KI,I,J)="  ":next J,I
  29.   280 for J=0 to 2
  30.   290  for I=0 to 4:KOS$(KI,J+1,I+1)=mid$(S$(X),J*10+I*2+1,2)
  31.   300 next I,J
  32.   310 endif
  33.   320 '
  34.   330 for I=56 to 520 step 64
  35.   340 line (I+1,144)-(I+62,224),pset,4,b:paint (I+2,148),7,4:next I
  36.   350 for I=56 to 520 step 64
  37.   360 line (I+1,272)-(I+62,352),pset,4,b:paint (I+2,278),7,4:next I
  38.   370 color 0
  39.   380 CO=0:for I=1 to 8
  40.   390 CO=CO+2:for J=1 to 3
  41.   400 CO=CO+2:for K=1 to 5 :locate 72-CO,K+8:print KOS$(I,J,K):symbol@(577-CO*8,K*16+128),KOS$(I,J,K),1,1,0:                            next K,J,I
  42.   410 CO=0:for I=9 to 16
  43.   420 CO=CO+2:for J=1 to 3
  44.   430 CO=CO+2:for K=1 to 5 :locate 72-CO,K+16:print KOS$(I,J,K):symbol@(577-CO*8,K*16+256),KOS$(I,J,K),1,1,0:                            next K,J,I:color 3
  45.   440 for I=1 to 8
  46.   450 locate I*8+1,14:print "(";I;")";
  47.   460 next I
  48.   470 for I=1 to 8
  49.   480 M$=mid$(MM$,I,1):locate I*8+1,22:print "( ";M$;" )";
  50.   490 next I:color 7
  51.   500 for I=1 to 44 step 2
  52.   510   OK$(I)=mid$(K$(X),I,2)
  53.   520 next
  54.   530 for I=1 to 30 step 2
  55.   540   OS$(I)=mid$(S$(X),I,2)
  56.   550 next
  57.   560 CC=1000:locate 7,65:print"SCORE>>";SC:for I=1 to 44
  58.   570 CC=CC-10:locate 18+I,4:print OK$(I);:locate 2,2:print "TIME>>";CC:for J=1 to 150
  59.   580 I$=inkey$:if I$="" then 585 else *OSHITA
  60.   585 next J
  61.   590 next I:for I=1 to 3500:next I
  62.   600 for I=1 to 30
  63.   610 CC=CC-10:locate 25+I,6:print OS$(I);:locate 2,2:print "TIME>>";CC
  64.   620 for J=1 to 150
  65.   630 I$=inkey$:if I$="" then next J else *OSHITA
  66.   640 next I
  67.   650 for I=1 to 26
  68.   660 CC=CC-10:locate 2,2:print "TIME>>";CC
  69.   670 for J=1 to 150
  70.   680 I$=inkey$:if I$="" then next J else *OSHITA
  71.   690 next I
  72.   700 I$="0"
  73.   710 *OSHITA
  74.   720 KE$="87654321IUYTREWQ"
  75.   730 KE2$=mid$(KE$,KI,1):locate 1,6:print "ANSER>>";KE2$
  76.   740 if I$=KE2$ then
  77.   750 gosub *KESU1
  78.   760 symbol@ (220,70),"当たり！！！",2,2,2:SC=SC+CC:locate 65,7:print"SCORE>>";SC
  79.   770 else
  80.   780 gosub *KESU1:symbol@ (220,70),"ハズレ！！！",2,2,2
  81.   790 '
  82.   800 NOKO=NOKO-1
  83.   810 locate 67,5:print"残り>>";NOKO
  84.   820 if NOKO<=0 then gosub *KESU1 else 870
  85.   825 for J=1 to 5:symbol@ (30+J*2,170+J*2),"ＧＡＭＥ　ＯＶＥＲ",4,4,J:next J
  86.   830 for I=1 to 10000:next I:if inkey$="" then 830
  87.   840 goto 10
  88.   850 '
  89.   860 '
  90.   870 endif
  91.   880 for I=1 to 10000:next I:if inkey$="" then 880
  92.   890 HGO=HGO+1000-CC:HSO=int(HGO/KAI)
  93.   900 goto 80
  94.   910 *KESU1
  95.   920 locate 10,4:print"                                                   "
  96.   930 locate 10,5:print"                                                   "
  97.   940 locate 10,6:print"                                                   "
  98.   950 return
  99.   960 data "あきのたの　　かりほのいほの　　ときをあらみ"
  100.   970 data "わかころもてはつゆにぬれつつ　"
  101.   980 data "はるすぎて　  なつきにけらし    しろたへの　"
  102.   990 data "ころもほすてふあまのかくやま　"
  103.  1000 data "あしびきの　　やまどりのをの　　しだりをの  "
  104.  1010 data "なかなかしよをひとりかもねむ　"
  105.  1020 data "たごのうらに　うちいでてみれば　しろたへの  "
  106.  1030 data "ふしのたかねにゆきはふりつつ　"
  107.  1040 data "おくやまに　　もみじふみわけ　　なくしかの  "
  108.  1050 data "こゑきくときそあきはかなしき　"
  109.  1060 data "かささぎの　　わたせるはしに　　おくしもの  "
  110.  1070 data "しろきをみれはよそふけにける　"
  111.  1080 data "あまのはら　　ふりさけみれば　　かすがなる  "
  112.  1090 data "みかさのやまにいてしつきかも　"
  113.  1100 data "わがいほは　　みやこのたつみ　　しかぞすむ  "
  114.  1110 data "よをうちやまとひとはいふなり　"
  115.  1120 data "はなのいろは　うつりにけりな　　いたづらに  "
  116.  1130 data "わかみよにふるなかめせしまに　"
  117.  1140 data "これやこの　　ゆくもかへるも　  わかれては  "
  118.  1150 data "しるもしらぬもあふさかのせき　"
  119.  1160 data "わたのはら　　やそしまかけて　　こぎいでぬと"
  120.  1170 data "ひとにはつけよあまのつりふね　"
  121.  1180 data "あまつかぜ　　くものかよひぢ　　ふきとぢよ  "
  122.  1190 data "をとめのすかたしはしととめむ　"
  123.  1200 data "つくばねの　　みねよりおつる　　みなのがは  "
  124.  1210 data "こひそつもりてふちとなりぬる　"
  125.  1220 data "みちのくの　　しのぶもぢずり　　だれゆゑに  "
  126.  1230 data "みたれそめにしわれならなくに　"
  127.  1240 data "きみがため　　はるののにいでて　わかなつむ  "
  128.  1250 data "わかころもてにゆきはふりつつ　"
  129.  1260 data "たちわかれ　　いなばのやまの　みねにおふる  "
  130.  1270 data "まつとしきかはいまかへりこむ　"
  131.  1280 data "ちはやぶる　　かみよもきかず　たつたがは   "
  132.  1290 data "からくれなゐにみつくくるとは　"
  133.  1300 data "すみのえの　　きしによるなみ　　よるさへや  "
  134.  1310 data "ゆめのかよひちひとめよくらむ　"
  135.  1320 data "なにはがた　　みじかきあしの　　ふしのまも  "
  136.  1330 data "あはてこのよをすくしてよとや　"
  137.  1340 data "わびぬれば　　いまはたおなじ　  なにはなる  "
  138.  1350 data "みをつくしてもあはむとそおもふ"
  139.  1355 '::::::::: 区切り:::::::::::::::
  140.  1360 data "あひみての　　のちのこころに　　くらぶれば　"
  141.  1370 data "むかしはものをおもはさりけり　"
  142.  1380 data "あきかぜに　　たなびくくもの　　たえまより　"
  143.  1390 data "もれいつるつきのかけのさやけさ"
  144.  1400 data "あけぬれば　　くるるものとは　　しりながら　"
  145.  1410 data "なほうらめしきあさほらけかな　"
  146.  1420 data "あさぢふの　　をののしのはら　　しのぶれど　"
  147.  1430 data "あまりてなとかひとのこひしき　"
  148.  1440 data "あさぼらけ　　ありあけのつきと　みるまでに　"
  149.  1450 data "よしののさとにふれるしらゆき　"
  150.  1460 data "あさぼらけ　　うぢのかはぎり　　たえだえに　"
  151.  1470 data "あらはれわたるせせのあしろき　"
  152.  1480 data "あらざらむ　　このよのほかの　　おもひでに　"
  153.  1490 data "いまひとたひのあふこともかな　"
  154.  1500 data "あらしふく　　みむろのやまの　　もみぢばは　"
  155.  1510 data "たつたのかはのにしきなりけり　"
  156.  1520 data "ありあけの　　つれなくみえし　　わかれより　"
  157.  1530 data "あかつきはかりうきものはなし　"
  158.  1540 data "ありまやま　　ゐなのささはら　　かぜふけば　"
  159.  1550 data "いてそよひとをわすれはやする　"
  160.  1560 data "あはぢしま　　かよふちどりの　　なくこゑに　"
  161.  1570 data "いくよねさめぬすまのせきもり　"
  162.  1580 data "あはれとも　　いふべきひとは　　おもほえで　"
  163.  1590 data "みのいたつらになりぬへきかな　"
  164.  1591 '
  165.  1600 data "いにしへの　　ならのみやこの　　やへざくら　"
  166.  1610 data "けふここのへににほひぬるかな　"
  167.  1620 data "いまこむと　　いひしばかりに　　ながつきの　"
  168.  1630 data "ありあけのつきをまちてつるかな"
  169.  1640 data "いまはただ　　おもひたえなむ　　とばかりを　"
  170.  1650 data "ひとつてならていふよしもかな　"
  171.  1660 data "うかりける　　ひとをはつせの　　やまおろしよ"
  172.  1670 data "はけしかれとはいのらぬものを　"
  173.  1680 data "うらみわび　　ほさぬそでだに　　あるものを　"
  174.  1690 data "こひにくちなむなこそをしけれ　"
  175.  1700 data "おほことの　　たえてしなくば　　なかなかに　"
  176.  1710 data "ひとをもみをもうらみさらまし　"
  177.  1720 data "おほえやま　　いくののみちの　　とほければ　"
  178.  1730 data "またふみもみすあまのはしたて　"
  179.  1740 data "おほけなく　　うきよのたみに　　おほふかな　"
  180.  1750 data "わかたつそまにすみそめのそて　"
  181.  1760 data "をぐらやま　　みねのもみぢば　　こころあらば"
  182.  1770 data "いまひとたひのみゆきまたなむ　"
  183.  1780 data "おとにきく　　たかしのはまの　　あだなみは　"
  184.  1790 data "かけしやそてのぬれもこそすれ　"
  185.  1800 data "おもひわび　　さてもいのちは　　あるものを　"
  186.  1810 data "うきにたへぬはなみたなりけり　"
  187.  1820 data "かくとだに　　えやはいぶきの　　さしもぐさ　"
  188.  1830 data "さしもしらしなもゆるおもひを　"
  189.  1840 data "かぜそよぐ　　ならのをがわの　　ゆふぐれは　"
  190.  1850 data "みそきそなつのしるしなりける　"
  191.  1860 data "かぜをいたみ　いはうつなみの　　おのれのみ　"
  192.  1870 data "くたけてものをおもふころかな　"
  193.  1880 data "きみがため　　をしからざりし　　いのちさへ　"
  194.  1890 data "なかくもかなとおもひけるかな　"
  195.  1900 data "きりぎりす　　なくやしもよの　　さむしろに　"
  196.  1910 data "ころもかたしきひとりかもねむ　"
  197.  1920 data "こひすてふ　　わがなはまだき　　たちにけり　"
  198.  1930 data "ひとしれすこそおもひそめしか　"
  199.  1940 data "こころあてに　をらばやをらむ　　はつしもの　"
  200.  1950 data "おきまとはせるしらきくのはな　"
  201.  1960 data "こころにも　　あらでうきよに　　ながらへば　"
  202.  1970 data "こひしかるへきよはのつきかな　"
  203.  1980 data "このたびは　　ぬさもとりあへず　たむけやま　"
  204.  1990 data "もにちのにしきかみのまにまに　"
  205.  2000 data "こぬひとを　　まつほのうらの　　ゆふなぎに　"
  206.  2010 data "やくやもしほのみもこかれつつ　"
  207.  2020 data "さびしさに　　やどをたちいでて　ながむれば　"
  208.  2030 data "いつこもおなしあきのゆふくれ　"
  209.  2040 data "しのぶれど　　いろにいでにけり　わがこひは　"
  210.  2050 data "ものやおもふとひとのとふまて　"
  211.  2060 data "しらつゆに　　かぜのふきしく　　あきののは　"
  212.  2070 data "つらぬきとめぬたまそちりける　"
  213.  2080 data "せをはやみ　　いはにせかるる　　たきがはの　"
  214.  2090 data "われてもすゑにあはむとそおもふ"
  215.  2100 data "たかさごの　　をのへのさくら　　さきにけり　"
  216.  2110 data "とやまのかすみたたすもあらなむ"
  217.  2120 data "たきのおとは　たえてひさしく　　なりぬれど　"
  218.  2130 data "なこそなかれてなほきこえけれ　"
  219.  2140 data "たまのよを　　たえなばたえね　　ながらへば　"
  220.  2150 data "しのふることのよわりもそする　"
  221.  2160 data "たれをかも　　しるひとにせむ　　たかさごの　"
  222.  2170 data "まつもむかしのともならなくに　"
  223.  2180 data "ちぎりおきし　させもがつよを　　いのちにて　"
  224.  2190 data "あはれことしのあきもいぬめり　"
  225.  2200 data "ちぎりきな　　かたみにそでを　　しぼりつつ　"
  226.  2210 data "すゑのまつやまなみこさしとは　"
  227.  2220 data "つきみれば　　ちぢにものこそ　　かなしけれ　"
  228.  2230 data "わかみひとつのあきにはあらねと"
  229.  2240 data "ながからむ　　こころもしらず　　くろかみの　"
  230.  2250 data "みたれてけさはものをこそおもへ"
  231.  2260 data "ながらへば　　またこのごろや　　しのばれむ　"
  232.  2270 data "うしとみしやそいまはこひしき　"
  233.  2280 data "なげきつつ　　ひとりぬるよの　　あくるまは　"
  234.  2290 data "いかにひさしきものとはかしる　"
  235.  2300 data "なげけとて　　つきやはものを　　おもはする　"
  236.  2310 data "かこちかほなるわかなみたかな　"
  237.  2320 data "なつのよは　　まだよひながら　　あけぬるを　"
  238.  2330 data "くものいつこにつきやとるらむ　"
  239.  2340 data "なにしおはば　あふさかやまの　　さねかづら　"
  240.  2350 data "ひとのしられてくるよしもかな　"
  241.  2360 data "なにはえの　　あしのかりねの　　ひとよゆゑ　"
  242.  2370 data "みをつくしてやこひわたるへき　"
  243.  2380 data "はなさそふ　　あらしのにはの　　ゆきならで　"
  244.  2390 data "ふりゆくものはわかみなりけり　"
  245.  2400 data "はるのよの　　ゆめばかりなる　　たまくらに　"
  246.  2410 data "かひなくたたむなこそをしけれ　"
  247.  2420 data "ひさかたの　　ひかりのどけき　　はるのひに　"
  248.  2430 data "しつこころなくはなのちるらむ　"
  249.  2440 data "ひとはいさ　　こころもしらず　　ふるさとは　"
  250.  2450 data "はなそむかしのかににほひける　"
  251.  2460 data "ひともおし　　ひともうらめし　　あぢきなく　"
  252.  2470 data "よをおもふゆゑにものおもふには"
  253.  2480 data "ふくからに　　あきのくさきの　　しをるれば　"
  254.  2490 data "むへやまかせをあらしといふらむ"
  255.  2500 data "ほととぎす　　なきつるかたを　　ながむれば　"
  256.  2510 data "たたありあけのつきそのこれる　"
  257.  2520 data "みかきもり　　ゑじのたくひの　　よるはもえて"
  258.  2530 data "ひるはきえつつものをこそおもへ"
  259.  2540 data "みかのはら　　わきてながるる　　いづみがは　"
  260.  2550 data "いつみきとてかこひしかるらむ　"
  261.  2560 data "みせばやな　　をじまのあまの　　そでだにも　"
  262.  2570 data "ぬれにそぬれしいろはかはらす　"
  263.  2580 data "みよしのの　　やまのあきかぜ　　さよふけて　"
  264.  2590 data "ふるさとさむくころもうつなり　"
  265.  2600 data "むらさめの　　つゆもまだひぬ　　まきのはに　"
  266.  2610 data "きりたちのほるあきのゆふくれ　"
  267.  2620 data "めくりあひて　みしやそれとも　　わかぬまに　"
  268.  2630 data "くもかくれにしよはのつきかな　"
  269.  2640 data "もろともに　　あはれとおもへ　　やまざくら　"
  270.  2650 data "はなよりほかにしるひともなし　"
  271.  2660 data "ももしきや　　ふるきのきばの　　しのぶにも　"
  272.  2670 data "なほあまりあるむかしなりけり　"
  273.  2680 data "やへむくら　　しげれるやどの　　さびしきに　"
  274.  2690 data "ひとこそみえねあきはきにけり　"
  275.  2700 data "やすらはで　　ねなましものを　　さよふけて　"
  276.  2710 data "かたふくまてのつきをみしかな　"
  277.  2720 data "やまがはに　　かぜのかけたる　　しがらみは　"
  278.  2730 data "なかれもあへぬもみちなりけり　"
  279.  2740 data "やまざとは　　ふゆぞさびしさ　　まさりける　"
  280.  2750 data "ひとめもくさもかれぬとおもへは"
  281.  2760 data "ゆふされば　　かどたのいなば　　おとづれて　"
  282.  2770 data "あしのまろやにあきかせそふく　"
  283.  2780 data "ゆらのとを　　わたるふなびと　　かぢをたえ　"
  284.  2790 data "ゆくへもしらぬこひのみちかな　"
  285.  2800 data "よのなかは　　つねにもがもな　　なぎさこぐ　"
  286.  2810 data "あまのをふねのつなてかなしも　"
  287.  2820 data "よのなかよ　　みちこそなけれ　　おもひいる　"
  288.  2830 data "やまのおくにもしかそなくなる　"
  289.  2840 data "よもすがら　　ものおもふころは　あけやらで　"
  290.  2850 data "ねやのやまさへつれなかりけり　"
  291.  2860 data "よをこめて　　とりのそらねは　　はかるとも　"
  292.  2870 data "よにあふさかのせきはゆるさし　"
  293.  2880 data "わがそでは　　しほひにみえぬ　　おきのいしの"
  294.  2890 data "ひとこそみえねかわくまもなし　"
  295.  2900 data "わすらるる　　みをばおもはず　　ちかひてし　"
  296.  2910 data "ひとのいのちのをしくもあるかな"
  297.  2920 data "わすれじの　　ゆくすゑまでは　　かたければ　"
  298.  2930 data "けふかきりのいのちともかな　"
  299.  2940 data "わたのはら　　こぎいでてみれば　ひさかたの　"
  300.  2950 data "くもゐにまかふおきつしらなみ"
  301.  2960 data ""
  302.  2970 data ""
  303.